EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/biz/swood/FW_Font.lha/FW_Font/FontLook.fwrexx

Text File | 1996-12-15 | 4KB | 2 lines

/* Optimized with RexxOpt 1.7 */
R='0A'X;Address='FinalW';Options results;STATUS PORTNAME;FW=result;address=FW;SIGNAL ON BREAK_C;'ShowMessage 2 1 "FontLook V2.60" "für einzelne Fonts..." "(©) Heiko Schröder - 15.12.96" ":-)" "Ok" "(-:"';'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""';if result=2 then call BREAK_C;Cleardoc Force;'ShowMessage 2 1 "Codes oder Layout" "" "" "Codes" "Layout" ""';cl=result;'ShowMessage 2 1 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""';ba=result;'ShowMessage 1 1 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""';lm=result;Font;a=RC;If a=0 then;do;Type d2c(32);BackSpace;status FontPath;FullFontName=result;pos=LASTPOS('/',FullFontName);IF (pos~=0) THEN;FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos);ELSE;DO;pos=LASTPOS(':',FullFontName);IF (pos~=0) THEN;FontName=Right(FullFontName,LENGTH(FullFontName)-pos);ELSE EXIT;END;IF ba=2 THEN;DO;View 20;End;GraphicTool;LinePrefs LineWt .5;If lm=1 then DrawLine 1 .5 14.85 1 14.85;If cl=1 then;do;DrawLine 1 2 3.5 20 3.5;DrawLine 1 2 26 20 26;TextTool;Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0;SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1;Do i=0 to 13;SetTab i*1.3+0.8 Right;End;Justify Center;Font Softsans;FontSize 18;Type FontName||R||R;Justify Left;a=0;DO w=1 to 15;Font Softsans;FontSize 8;DO x=a+33 to a+46;Type d2c(9)||x|| d2c(32)|| d2c(x);END;Type R;Font FontName;FontSize 24;DO x=a+33 to a+46;Type d2c(9);Type d2c(x);END;Type R;a=a+14;END;Font Softsans;FontSize 8;DO x=a+33 to a+45;Type d2c(9)||x|| d2c(32)|| d2c(x);END;Type R;Font FontName;FontSize 24;DO x=a+33 to a+45;Type d2c(9);Type d2c(x);END;Type R;FontSize 16;Type d2c(9)||R;Font Softsans;FontSize 8;Justify Right;Type Date(E);END;If cl=2 then;do;DrawLine 1 2 3.4 20 3.4;TextTool;Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0;SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1;Justify Center;Font Softsans;FontSize 18;Type FontName||R;Justify Left;Font FontName;FontSize 8;Type R||"This is 8-point type - not easy to read!"||R;FontSize 9;Type "9-Point type is about the smallest readable size."||R;FontSize 10;Type "With 10-point type, we have a normal text size."||R;FontSize 12;Type "With some Fonts, 12-point type is easier to read."||R;FontSize 14;Type "14-point type is good for subheadings."||R;FontSize 16;Type "For larger subheadings, try 16-point type."||R;FontSize 18;Type "18-point type makes nice small headlines."||R;FontSize 24;Type "24-point type is for medium headlines."||R;FontSize 36;Type "36-point is for larger ones."||R;FontSize 48;Type "48-point almost shouts!"||R;FontSize 60;Type "60-point is huge!"||R;FontSize 12;Font SoftSans;Type "NORMAL"||R;Font FontName;Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R;Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R||R;Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R;Font SoftSans;Type "ERWEITERTER SCHRIFTCODE"||R;Font FontName;j=0;Do i=1 to 4;Do k=128+j to 159+j;Type d2c(k);End;Type R;j=j+32;End;END;View;'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"';If result=1 then Save;If result=2 then Print;END;else;do;'ShowMessage 1 1 "FW kann diesen Font nicht anzeigen..." "Es ist kein FW typischer Font..." "" "Okay" "" ""';end;'ShowMessage 2 1 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"';EXIT;BREAK_C:;'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""';address "REXX";View;CLOSE("file");EXIT